home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / animat2a / frmanite.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-10-06  |  2.8 KB  |  100 lines
  1. VERSION 5.00
  2. Object = "{220F55E8-7AAE-11D3-9D68-F74ED5721646}#17.0#0"; "TAni.ocx"
  3. Begin VB.Form FrmAniGif 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Gif Animation"
  6.    ClientHeight    =   4920
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4410
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4920
  14.    ScaleWidth      =   4410
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin TAni.TMaxAni TMaxAni1 
  18.       Height          =   375
  19.       Left            =   1800
  20.       TabIndex        =   5
  21.       Top             =   120
  22.       Width           =   2535
  23.       _ExtentX        =   4471
  24.       _ExtentY        =   661
  25.    End
  26.    Begin VB.Frame Frame1 
  27.       Height          =   4695
  28.       Left            =   0
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Width           =   1695
  32.       Begin VB.DriveListBox Drive1 
  33.          Height          =   315
  34.          Left            =   120
  35.          TabIndex        =   4
  36.          Top             =   600
  37.          Width           =   1455
  38.       End
  39.       Begin VB.DirListBox Dir1 
  40.          Height          =   2115
  41.          Left            =   120
  42.          TabIndex        =   3
  43.          Top             =   960
  44.          Width           =   1455
  45.       End
  46.       Begin VB.FileListBox File1 
  47.          Height          =   1455
  48.          Left            =   120
  49.          Pattern         =   "*.gif"
  50.          TabIndex        =   2
  51.          Top             =   3120
  52.          Width           =   1455
  53.       End
  54.       Begin VB.TextBox Text1 
  55.          Height          =   285
  56.          Left            =   120
  57.          TabIndex        =   1
  58.          Top             =   240
  59.          Width           =   1455
  60.       End
  61.    End
  62. Attribute VB_Name = "FrmAniGif"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Public FileSelect$
  68. Private Sub Dir1_Change()
  69. On Error Resume Next
  70. File1.Path = Dir1.Path
  71. End Sub
  72. Private Sub Drive1_Change()
  73. On Error Resume Next
  74. Dir1.Path = Drive1.Drive
  75. End Sub
  76. Private Sub File1_Click()
  77. Text1.Text = File1.FileName
  78. If Len(File1.Path) > 3 Then
  79.     FileSelect$ = File1.Path & "\" & File1.FileName
  80.     FileSelect$ = File1.Path & File1.FileName
  81. End If
  82. Me.Caption = FileSelect$
  83. End Sub
  84. Private Sub File1_DblClick()
  85. On Error Resume Next
  86. TMaxAni1.FileName = FileSelect$
  87. TMaxAni1.ShowGif
  88. ResizeForm
  89. End Sub
  90. Sub ResizeForm()
  91. If TMaxAni1.Height > Frame1.Height Then
  92.     Me.Height = TMaxAni1.Height + TMaxAni1.Top + 500
  93.     Me.Height = 5300
  94. End If
  95. If TMaxAni1.Width > 2500 Then
  96.     Me.Width = TMaxAni1.Width + Frame1.Width + 300
  97.     Me.Width = 4500
  98. End If
  99. End Sub
  100.